home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / COMMODOR / FUNGRAF1.SDA / PROGRAM CHKR342 (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  2KB  |  45 lines
  1. 0 REM CHECKSUMS
  2. 1 POKE53280,7:POKE53281,6
  3. 2 PRINT"[147][198][213][206] [199][210][193][208][200][201][195][211] [208][210][207][199][210][193][205] [195][200][197][195][203][197][210]":PRINT"FOR SHAREWARE VERSION 342"
  4. 3 GOSUB39:PRINT"[212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [210][213][206] [193] [195][200][197][195][203][211][213][205]":PRINT"[207][206] [193][204][204] [214][201][212][193][204] [208][210][207][199][210][193][205]";
  5. 4 PRINT" [198][201][204][197][211] [193][206][196] ":PRINT"[206][207][212][201][198][217] [217][207][213] [207][198] [193][206][217] [205][201][211][211][201][206][199] [207][210]"
  6. 5 PRINT"[208][207][211][211][201][194][204][217] [195][207][210][210][213][208][212] [198][201][204][197][211]. [193][204][211][207]":PRINT"[195][200][197][195][203][211] [212][200][197] [196][197][205][207] [198][201][204][197][211]."
  7. 6 PRINT"[201][198] [217][207][213] [199][197][212] [206][207] [197][210][210][207][210][211][146], [212][200][197][206] [212][200][197]":PRINT"[208][210][207][199][210][193][205] [211][200][207][213][204][196] [210][213][206] [207][203]."
  8. 7 PRINT"[201][206][211][197][210][212] [208][210][207][199][210][193][205] [196][201][211][203] [201][206] [196][210][201][214][197]":PRINT"[193][206][196] [208][210][197][211][211] [210][197][212][213][210][206]."
  9. 8 POKE198,0:WAIT198,1:Z$=CHR$(.)
  10. 9 F$="[198][199][205].up342*,P,R":CK=540440:EF=18:XO=002:GOSUB29
  11. 10 F$="[198][199][205].lo342*,P,R":CK=708756:EF=27:XO=224:GOSUB29
  12. 11 F$="[198][199][205].bc342*,P,R":CK=354439:EF=21:XO=95:GOSUB29
  13. 12 F$="[198][199][205].[211][208]3***,P,R":CK=7774:EF=3:XO=228:GOSUB29
  14. 13 F$="[198][199][205].[198][204]340*,P,R":CK=133255:EF=21:XO=191:GOSUB29
  15. 14 CK=305:F$="[198][199][205].in342*,P,R":GOSUB40:GOSUB32
  16. 15 CK=305:F$="[198][199][205].au342*,P,R":GOSUB40:GOSUB32
  17. 16 F$="[198]/[199][211]342***,P,R":CK=1331736:EF=60:XO=122:GOSUB29
  18. 17 F$="RONZBOOT.S342*,P,R":CK=578475:EF=23:XO=51:GOSUB29:PRINT"[195][200][197][195][203] [196][197][205][207] [198][201][204][197][211] [217]/[206]?";
  19. 18 POKE204,.:POKE207,.:POKE198,.:WAIT198,1:GETA$:POKE207,.:POKE204,1:PRINT:IFA$<>"Y"THEN28
  20. 19 F$="D.1*,P,R":CK=86583:EF=5:XO=115:GOSUB29
  21. 20 F$="D.2*,P,R":CK=73238:EF=5:XO=86:GOSUB29
  22. 21 F$="D.3*,P,R":CK=53542:EF=5:XO=118:GOSUB29
  23. 22 F$="D.4*,P,R":CK=77620:EF=5:XO=230:GOSUB29
  24. 23 F$="D.5*,P,R":CK=58787:EF=5:XO=227:GOSUB29
  25. 24 F$="D.6*,P,R":CK=51855:EF=5:XO=149:GOSUB29
  26. 25 F$="D.7*,P,R":CK=78171:EF=5:XO=133:GOSUB29
  27. 26 F$="D.8*,P,R":CK=55059:EF=5:XO=213:GOSUB29
  28. 27 F$="D.9*,P,R":CK=79181:EF=5:XO=57:GOSUB29
  29. 28 PRINT,"[195][200][197][195][203] [195][207][205][208][204][197][212][197][196]":PRINT,"[198][201][204][197][211] [205][201][211][211][201][206][199]:"FM:PRINT,"[197][210][210][207][210][211]:"ER:END
  30. 29 SYS49152:OPEN3,8,0,F$:POKE157,0:POKE185,0:POKE780,0:POKE781,0:POKE782,20
  31. 30 SYS65493:CLOSE3:FORX=250TO252:POKEX,0:NEXT:POKE787,EF:SYS49178:GOSUB41
  32. 31 C=PEEK(250)+256*PEEK(251)+65536*PEEK(252)
  33. 32 IFC=CKANDPEEK(679)=XOTHENPRINTTAB(4)F$" [186][207][203][193][217]":RETURN
  34. 33 PRINTTAB(2)"[197][210][210][207][210] [201][206] "F$;C;PEEK(679):ER=ER+1:IFE>19THENPRINT" ";E;E$:FM=FM+1
  35. 34 RETURN
  36. 35 DATA 169,0,133,253,169,20,133,254,162,68,160,0,169,0,145,253,200,208,251
  37. 36 DATA 230,254,202,208,242,96,234,169,20,133,254,169,0,133,253,141,167,2
  38. 37 DATA 174,19,3,160,0,177,253,72,77,167,2,141,167,2,104,24,101,250,133,250
  39. 38 DATA 144,6,230,251,208,2,230,252,200,208,230,230,254,202,208,223,96
  40. 39 FORX=49152TOX+73:READA:POKEX,A:NEXT:RETURN
  41. 40 OPEN2,8,2,F$:GET#2,A$,B$:CLOSE2:C=ASC(A$+Z$)+ASC(B$+Z$):XO=.:POKE679,.
  42. 41 OPEN1,8,15:INPUT#1,E,E$,CX,DX:CLOSE1:RETURN
  43. 42 IFE>20THENPRINT" "E;E$;" "F$:FM=FM+1:RETURN
  44. 43 PRINTTAB(4)F$" [186][207][203][193][217]":RETURN
  45.